home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6437652000.psc / Chat Client & Chat Server / Chat Client / Send.bas < prev   
Encoding:
BASIC Source File  |  2000-05-23  |  263 b   |  13 lines
  1. Attribute VB_Name = "Module1"
  2. Public Function Send(Instruct As String)
  3. On Error GoTo skip
  4. Form1.Winsock2.SendData Instruct
  5. skip:
  6. End Function
  7. Public Function ChatSend(Chat As String)
  8. On Error GoTo skip
  9. Form1.Winsock1.SendData Chat
  10. skip:
  11. End Function
  12.  
  13.